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T RCJBATCH.B32;1 (1) 


001 MODULE BATCH (ZTITLE Batch process control’ 
0 ¢ {DENT = *'v04-000' 
= 
004 BEGIN 
0006 ; 
000? ieeaeeeneeeeenenenenenenceneenererererertrerrererenennneeneeenneneneranerenes 
'@ 

0009 '@ \OPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
0010 '® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
0011 '® ALL RIGHTS RESERVED. 


® 

® 

® 

® 

' * 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
i® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
* 

i® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

ie CORPORATION. * 
® 

® 

® 

® 

® 

* 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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! FACILITY: 
Job controller. 
' ABSTRACT: 
OoRo This module contains the routines specific to batch processing. 
0038 ' ENVIRONMENT: 
0039 : VAX/VMS user and kernel mode. 
0040 len 
0041 : 
One AUTHOR: M. Jack, CREATION DATE: 16-Feb-1982 
| Ree MODIFIED BY: 
6 0046 ' v03-006 KPLO001 P Lieberwirth 9-Jul-1984 
7 0047 : Liminate a source of queue file corruption in routine 
8 0048 ! BATCH_DELETION. Specifically, if the SJH describing a 
9 0049 : batch job being deleted was deallocated to the free List 
0 0050 : by the routine COMPLETE JOB, and then a crash occured 
1 0051 : before routine BATCH DECETION could finish the operation 
¢ 0036 ‘ by re-writing the SMG, the queue file would contain the 
005 ! old SMQ record image which now contained a pointer to a 
4 Bpee ‘ record on the free List. Other routines in the JOB 
5 55 : CONTROLLER would trip over this corruption, generally by 
6 0056 : trying to to follow a zero pointer in the now deallocated-SJH 
7 0057 ‘ and encountering an RMS invalid-key by trying to read record 


BATCH Batch process control 4 : 

Bay 15-Sep-1984 23:53:25 VAK=11 Bliss-32 v4.0-74 BA) 
-000 12280 8- 1c 93:33:83 SEK SUMEMASTER SC UGBeT, “SRCIBATCH.B3204°" af v0é 
: 38 i ] : zero. 

: 60 1 i The fix is to flush the SMa 

; ‘ before doing th 

6) : This results in an extra read eperettens Stace ¢ Lege 90° 

; 66 ¢ 1 | peyere again after COMPLETE_JOB returns. However, the extra 

cae 1 | p t9 read_record is not so expensive because the SMa 

ee ¢ yi Soy, F755 ooze © erates Pererense Count and as a result 

; 68 +4 : possible file corruption. Fdeaol gee Boeri ob dapat 

; Be By flushing the SMQ before doing COMPLETE_JOB on th 

; 4 ! we traded a window where if a eFeek occured file cateuseton 

; on | sretord describing 2 batch Job that war to be deleted Th 

; 007¢ | Rote tk & ane ante at was to be deleted. The 

; 0074 1: v03-005 PCG0001 Peter G -Feb- | 
; Soe : Fix CPU time Limit loste. seca | 
: 0077 1: v03-004 MLJ0115 Martin L. Jack, 30-Jul-19 : | 
: th : Changes for job controller besslevei. walls 

0080 1 i vO3-003 MLJ0114 Martin L. Jack, 23-Jun-1983 4: | 
3 4 : Changes for job controller bessievel, sic | 
 & 0083 1: v03-002 MLJ0113 Martin L. Jack, 26-May-1 | 
: ‘ - -May-19 : 

se Boe : } Changes for job controller boodlovel. eri batt 

; 86 0086 1! v03-001 MLJ0112 Martin L. Jack, 29-A 

; : : » 29-Apr=1 : 

44 se f4 ' Changes for job controller enbtecst ee 

; «89 0089 1 ise 
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-000 14-Sep-1984 12:36:56  DISKSVMSMASTER:CJOBCTL. SRCIBATCH. B32 a (2) vO 
: 91 090 ' REQUIRE ‘SRC$:JOBCTLDEF’; | | 
. ¥ 1138 1 
: 9% 11 1 FORWARD ROUTINE 
; «9S 1134 1 SJC_BATCH_SERVICE, 
; 36 1135 (1 BATCH DELETION: NOVALUE; 
ae. 1138 1 
;s 11 1 
; 99 1138 1 EXTERNAL ROUTINE 
; 100 1139 (1 COMPLETE_JOB: NOVALUE, 
: 101 1140 1 COMPLE TE-SRB_OUTPUT_ITEM: NOVALUE , 
; 10 1141 1 CREATE SRB: NOVALUE, 
: 1 14g 1 FETCH_VARIABLE_ITEM, 
3 104 1143 1 FETCH-VARIABLE-1TEM.LIST, 
; 105 1144 1 FIND PENDING _J0GS: NOVALUE 
> 106 1145 1 FIND PROCESS “DATA: L_ouTPUT_3, 
: 107 1146 1 FLUSA_RECORD? NOVALUE, 
: 108 1147 1 LOCATE SRB_OUTPUT_ITEM, 
; 109 1148 1 REA RECOR 
: 110 1149 1 RELEASE_RECORD: NOVALUE, 
+ 111 1150 1 REWRITES RECORD: NOVALUE, 
: 1g 1151 1 D_SERVICE RESPONSE _MESSAGE: NOVALUE, 
; 11 1136 1 OpDATE _GETQUT_D NOVALUE; 
: 114 113 1 
: (115 1154 1 
: 116 1155 1 BUILTIN 
> 11 1156 1 MOVC3, 
> 118 1157 1 movcs; 


process control 1hesep-19 4 93:33:83 y 
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Liss- 0-742 Page 4 
MASTER: CJOBCTL.SRCJBATCH.B32;1 (3). 
GLOBAL ROUTINE SJC_BATCH_SERVICE= 


'e¢ 


FUNCTIONAL DESCRIPTION: 
This routine processes the SJC$_BATCH_SERVICE request. 


PACU 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
MBX - Pointer to buffered mailbox message. 


VFWN—“OOONAUE wr 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
Completion status to be returned to requestor. 


SIDE EFFECTS: 
NONE 


REF BBLOCK, ' Pointer to SJH 
- ' Record number of SMQ 

SMQ: REF BBLOCK, ! Pointer to S$ 

' Record number of SQR 

' Pointer to SQR 

' Base of DJI item List 

' Cursor for DJI item List 

' Pointer to DJI flags longword 
: S241, ' Local SRB 

FLAGS: BBLOCK(4], ' Local INPUT_FLAGS 

T; ! Temporary for quota calculations 
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DJIFLG: REF BBLOCK 
SRB: 5 
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: Ensure that the requesting process has CMKRNL privilege. 
if NOT .BBLOCKCMBXCACM$Q_PRVMSK], PRVSV_CMKRNL] 
RETURN JBC$_NOCMKRNL ; 


Coo°oo 


| 
| 
| 
| 
| 

OUTPUT PARAMETERS: 

NONE 

| 


BIRAR 


: Locate the data for this job. 


IF NOT FIND_PROCESS DATA( 
PDE_K_BATCH, .MBXCACMSL_PID], FALSE; 
. SMQ"N, SJH_N) 

THEN 

RETURN JBC$_NOSUCHJOB; 
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BEGIN 
LOCAL 
Sun. ' Record number of SJH 
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BATCH Batch process control 1S-sep-1 4 23:53:25 VAX-11 Bliss-32 V4.0-742 Page 5) 
v04-000 1279 08- 132 13:38:86 DISKSVMSMASTER: LJOBCTL. SRCJBATCH.B32:1 (3) | 
; 177 1215 
3 1 1 
; 4 1 : Read the queue record and the job record. 
; 181 1 15 SMQ = READ_RECORD(.SMQ_N); 
3 : § : y SJH = READ_RECORD(.SJH_N); 
> 184 1 
3 : 5 } 5 Scan the input item buffer, if specified. 
3; 1 1225 FLAGS = 0; 
: 4 8 1 $ IF .ITEM_PRESENTCSJC$_BATCH_INPUT] 
Ee 1 THEN 
; 190 1228 BEGIN 
: «191 1229 LOCAL 
: 136 1230 : REF BBLOCK, ' Cursor for item List 
; 19 1231 P_END; ! Pointer past end of item list 
i 198 1538 | 
; 138 : $¢ Pick up a pointer to the item List and one to the Last item. | 
; 198 1 $$ P = .VALUE_BATCH_INPUTCSDSC_A_ POINTER); 
; 199 37 P_END = .P™+ .VACUE_BATCH_INPOTCSDSC_W._LENGTH] - 4; | 
; 201 1239 
: O 1240 ' Loop over the items. | 
3 0 1241 { 
$ 04 1 eg WHILE .P LSSA .P_END DO 
é 05 124 4 BEGIN 
3 06 1244 4 LOCAL 
; 207 1245 4 TYPE, ! Item type 
: 208 1246 4 SIZE; ' Item size 
; 209 1247 4 
: 210 1248 4 : 
: 1} ; rh 2 Get and advance over the item type and size. 
3 18 1251 4 TYPE = PED s teu.§ TER_CODE J: 
> 216 1 26 4 SIZE = .PLDJI$SW_ITEM SIZE]; 
5 15 125 4 P= .P + DJISS_TTEM_READER; 
s 18 1254 4 
: 1 1255 4 
: 4 ; 2$ : } Process the item. 
3 220 1 38 4 CASE .TYPE FROM DJISK_INPUT_FLAGS TO DJISK_CONDITION_VECTOR OF | 
3 1 1259 4 SET 
e ¢ 1260 4 j 
: 1261 4 
: 4 1 66 4 COUTRANGE): 
3 5 1265 4 EXITLOOP; 
; $ 1264 4 
: 1265 4 
: 3 1 66 4 CDJI$K_INPUT_FLAGS): 
: 126 
: ! o8 IF .SIZE EQL 4 
: 5 1270 FLAGS = ..P; 
a 1271 4 END; 
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Checkpoint data. 


buLIT = FETCH _VARIABLE_ITEM( 
SJHSS ~CHECKPOINT, SJHCSJHST_CHECKPOINTI, 
DJISK r RESTART, 


maximum. 


.SJH HLS JHSY CPU_MAXIMUM] THEN T = + SHES JHSt CPU_MAXIMUM] 
— IF .SMOCSMQS? acca DEFAULT] THEN T = .SMQ SMQSC_CPU_DEFAULT); 
SMQCSMQ$V_CPU_MAXIMUM) 


GCDJISV_USE CPU MAXIMUM] = TRUE; 
IF .SMQCSMQSC_CPO_MARIMUM] - 1 LSSU .T - 1 
T 


= .SMQCSMQS$L_CPU_MAXIMUM); 
END 


$K_CPU_MAX IMUM; 


4; 
DJI 
_ITEM_HEADER; 


Job name. 


DJIITMCDJI$W_ITEM_SIZE] = CHSRCHAR(SJHCSJHST_NAME}); 
DJIITMCDJI SW) ITEM. CODE = DJISK JOB_NAME; 
DJIIT :DITITA * DJISS_ITEM M HEA DER; 


C3( 
ZREF (CHSRCHAR(SJHCSJH$T_NAME])), 
SJHCSJH$T_NAME] + 1 

-DJIITM; 7,, DJIITMS; 


Log file queue. 
F SINCSJNSL L0G QUEUE LINK NEQ 0 


BEGIN 

LOCAL 
SMQ_N2, ' Record number of Log SMQ 
SMQ_2: REF BBLOCK; ! Pointer to log SMQ 


SMQ_2 = READ_RECORD(SMQ_N2 = .SJHCSJH$L_LOG_QUEUE_LINK]); 
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THEN 
BEGIN 


} Locate the first or next file in the job. 
IF .SJHCSJHSL_CURRENT_FILE_LINK] EQL 0 


SQR_N = .SJHCSJHSL_FILE_LISTI 
ELSE 


BEGIN 
SQR = READ_RECORD(.SJHCSJHSL_CURRENT_FILE_LINK)); 
SQR_N = .SORCSYMSL INK : 

BELEASE _RECORD(.SJA SJHS$L_CURRENT_FILE_LINK]); 
Update the current file Link. 
SJHCSJHSL_CURRENT_FILE_LINK] = .SQR_N; 


If the job is not complete, pass the next file to the job. 
if .SQR_N NEQ 0 
THEN 

BEGIN 

} Read the SQR record. 

SQR = READ_RECORD(.SQR_N); 


! Flags. 
DJIFLGLDJISV_TERMINATE] = FALSE; 
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3 
3 
g 3 
3 DJIITM pute i Ten sized = SORSS_FILE_IDENTIFICATION; 
208 4 DJIITMCDJISW_ITEM_CODEJ = DJISK_FILE_IDENTIFICATION; 
20? 2 aoatte = .DJTITM * DJISS_ITEM_HEADER; 
505 4 ZREF (SQR$S_FILE_IDENTIFICATION), 
506 4 SQRCSORST_FILE_TDENTIFICATION), 
507 4 -DJ 3 eee DJIITA); 
508 4 
509 4 
510 4 RELEASE _RECORD(.SQR_N); 
511 4 END; 
aig 5 END; 
51 5 
31% 5 eee 
313 2 Terminate the item List. 
517 5 DJIITMCDJISW_ITEM_SIZE] = 0; 
518 5 DJIITMCDJISW_ITEM_CODEJ = 0; 
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DJIITM = .DJIITM + DJISS_ITEM_HEADER; 


COMPLETE _SRB_OUTPUT _ITEM( 
-DJLITM = .DJI): 

END; 

} Rewrite the job header. 

REWRITE_RECORD(.SJH_N); 
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! Send the resporse message locally and then return a status of zero to inhibit 
the central response return. 


SEND_SERVICE_RESPONSE MESSAGE (SRB, SS$_NORMAL); 
1 END; 


-TITLE BATCH Batch process control 
-IDENT \V04-000\ 


-PSECT COMMON,NOEXE, 


00000 DIAG_STORAGE BASE: 
00000 DIAG_TRACE: 


-BLKB 96 
00060 DIAG_COUNT: 

BL 96 
000CO DIAG_FLAGS: _ 
000C4 WORK_AREA: 

-BLKB 44 
0O0FO SNDJBC_COUNT: 

-BLKB 132 
00174 GETQUI_COUNT: 

-BLKB 40 
0019C SNDACC_COUNT: 

-BLKB 28 
00188 SNDSMB_COUNT: 


~BLK 
00200 DIAG_STORAGE END; 
90200 FLAGS: -BLKB 
00204 IMAGE DUMP STSFL 
00208 THIS_SYSiD: 

~BLK 
00206 -BLKB 
00210 CUR_TIME: - 
00218 HOURLY_TIME: 

.BLKB 


oo NO FOSO 


8 
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00220 HOURLY PARAMS : 
00234 SYMBIONT. = COUNT 
00238 QUEUE REFERENCE COUNT: 
0023¢ eae aa 
00240 
00244 M “BLKB 
00248 MEMORY. “FREE QUEUES: 
00270 NONAST WORK QUEUE: 
00278 BCB_FREE_LIST: 
0027¢ BCB_ACTIVE List: 
00280 GOL_FREE_LIST: 
“BLKB 
00284 GQL_ACTIVE LIST: 
.BCKB 
00288 OPEN -GETaUI LIST: 
0028C PROCESS_DATA_LIS 
00290 SYMBIONT. “Biot 
00294 SPARE -AREA: 
002A0 REMOTE REQUEST. zt 
002A8 QUEUE_FILE LKSB: 
00280 QuEUE_LOCK CRSB: 
.BCKB 


00288 RSP: -BLKB 
002CO JBC_PRIORITY: 


002C4 JBC_PRIVILEGES: 
002CC JBC_QUOTAS: 
-BLKB 
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68 of -BLKB 
0310 JBC_UIC:.BLKB 
00314 QUEDE_FAB: 

-BLKB 80 
00364 QUEVE_RAB: 


0O3A8 QUEUE _NAM: 
00408 QUEUE_XAB: 
00460 QUEUE_RSA: 

-BLKB 255 


0055f -BLKB 
0560 QUEUE _ALQ: 


LKB 996 
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-BLKB 


00564 QUEUE _MBF : 
BLK 


0565 


-BLKB 

0568 ACCOUNTING PABS: 

00570 ACCOUNTING RABS: 
00578 ACCOUNT FAB A: 
005¢8 ACCOUNT RAB A: 
0060¢ ACCOUNT NAM A: 
0066C ACCOUNT_RSA A: 
-BLRB 


00768 


-BLKB 
0076C ACCOUNT_FAB B: 
0078¢ ACCOUNT _RAB B: 
00800 ACCOUNT NAM B: 
00860 ACCOUNT_RSA B: 

-BLRB 
BLKB 


0095F 


00960 DIAG_FAB: 
00980 DIAG_RAB: 
009F4 MBX_CHAN: 
009F8 MBX_10SB: 
OOAO0O MBX_BUFFER: 
00E00 VALUE_STORAGE BASE: 


LKB 


-BLK 
00E00 ITEM_PRESENT: 
-BLKB 32 
0020 VALUE _GETQUI BASE: 
00E20 VALUE ACCOUNT ING MESSAGE: 
00E26 VALUE ACCOUNTING TYPES: 
O0E2A VALUE AFTER, TIME : 
00E32 VALUE _ALIGNMENT _PAGES: 
00E33 VALUE_BASE PRIORITY: 
O0E 34 VALUE BATCH INPUT: 
QOE3A VALUE_BATCH OUTPUT: 
00E44 VALUE_BUFFER_COUNT : 
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00E45 
00E4B 
O0E4C 
00E5C 
00E62 
00E68 
OOE6C 
00E70 
00E78 
O0E7E 
00E82 
OOE8C 
OOES8E 
OOE8F 
00EB3 
OOEB9 
OOEBF 
OOECS 
OOEC9 
QOECA 
OOECB 
OOECD 
OOECF 
Q0EDO 
00ED6 
OOEDA 
OOEE2 
OOEES 
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Sdbnthl 

VALUE CHARACTERISTIC _NAME: 

VALUE CHARACTERISTIC, NUMBER: 

VALUE_ CHARACTERISTICS: 

VALUE CHECKPOINT DATA: 

VALUE _CLI: 

VALUE _CPUr DEFAULT: 

VALUE_ CPU LIMIT: 

VALUE_DESTINATION_QUEUE : 

VALUE DEVICE NAME : 

VALUE_ENTRY_NUMBER: 

VALUE_ENTRY_NUMBER_OUTPUT: 

VALUE _EXTEND QUANTITY: 

VALUE FICE COPIES: 

VALUE FILE IDENTIFICATION: 

VALUE_FILE SETUP, MODULES: 

VALUE_FILE SPECIFICATION: 

VALUE _FIRST_PAGE: 

VALUE _FORM-DESCRIPTION: 

VALUE _FORM_LENGTH: 

VALUE _FORM_MARGIN_BOTTOM: 

VALUE _FORR MARGIN_LEFT: 

VALUE _FORR RARGIN. RIGHT 

VALUE_FORM_MARGIN_TOP: 

VALUE FORM NAME: 

VALUE _FORM NUMBER: 

VALUE “ORR: 

VALUE “Foil SETUP 

VALUE FORM STock: 
-BCKB 
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OOEEE 
OOEFO 
01204 
01205 
01206 
0120¢ 
012E2 
012E6 
O12EA 
012F4 
012F8 
O12FE 
01306 
0130C 
01312 
01318 
0131C 
01322 
01328 
0132E 
01334 
0133A 
01340 
01346 
0134C 
01352 
01353 
01359 
01350 


VALUE _FORM_WIDTH: 
VALUE GEiERIC. TARGET: 

VALUE _ JOB COPIES: 

VALUE _ JOB LIMIT: 

VALUE _J08 NAME: 

VALUE _ JOB RESET MODULES: 
VALUE _ JOB Size MAXIMUM: 
VALUE _JOB SIZE _MINIMUM: 
VALUE_JOB_ STATUS OUTPUT: 
VALUE_LAST PAGE: 

VALUE LIBRARY. SPECIFICATION: 
VALUE_LOG. QUEUE : 

VALUE_LOG SPECIFICATION: 
VALUE_NOTE : 
VALUE -oPERATOR REQUEST: 
VALUE _OWNER UIC: 
VALUE “PAGE SETUP 
VALUE _PARAMETER. 
VALUE _PARARETER. 
VALUE PARAMETER. 
VALUE _PARARETER_ 
VALUE PARAMETER. 
VALUE _PARARETER_ 
VALUE _PARARETER. 
VALUE PARAMETER. 
VALUE PRIORITY: 
VALUE PROCESSOR: 
VALUE _PROTECTION: 
VALUE que DE. 


MODULES: 
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| -BLKB 6 
01363 VALUE_QUEUE FILE SPECIFICATION: 


— L 
01369 VALUE RELAT IVE_PAGE 
0136D VALUE .RESERVED_INPUT_1: 
0136E VALUE .RESERVED_INPUT_2: 
01370 VALUE .RESERVED_INPUT_3: 
01374 VALUE .RESERVED_ INPUT 4: 
0137A VALUE .RESERVED_OUTPUT_1: 
01384 VALUE RESERVED OUTPUT_2: 
0138€ VALUE SEARCH STRING: 
01394 VALUE _SCSNODE NAME : 
0139A VALUE _WSDEFAULT: 
0139C VALUE_WSEXTENT: 
0139E VALUE_WSQUOTA: 
013A0 VALUE_ STORAGE END: 
-BLKB™ 0 


-CLOSEOUT= 

“NOCMKRNL= 

“NOOPER= 
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y2rfeerh SR 13:82:83 eek dwALS Teac cider Sacaparcn.esert” «hy 
43 D4 QOOIA 18: CLRL = = (SP) ; 1210) : 
28 AO DD O00IC PUSHL  40(RO) + 1211, ; 
1 0D OO01F PUSHL # : 1210) : 
000000006 if ; i 4 CALLS #3, * plore : ; 
. | .- 
5 00048040 &F BO HOVL #294976, RO : 1214) : 
5A DD 2s PUSHL  SMQ_N ; 1219) : 
000000006 Ef 1 FB CALLS #1, READ_RECORD : ; 
6 0 D C MOVL RO. SMQ : ; 
B 0D F PUSHL H_N + 1220 ; 
000000006 ef gi FB 0 41 CALLS #1, READ_RECORD : : 
A 0D 48 MOVL JH § > 
08 AE D4 0048 CLRL FLAGS + 1225 ; 
4D 00000000° EF 02 €1 00 aE BBC #2, ITEM_PRESENT+1, 8$ :1 ¢6 : 
9 00000000" EF 00 0005 MOVL § VALUE_BATCH_INPUT+2, P + 1236 ; 
0 00000000' EF 3¢ 0005p MOVZWL VALUE BATCH INPUT, RO + 1237 : 
28 FC A049 (OE 0064 MOVAB =4(ROJCPJ, P_END : ; 
8 39 D1 00 69 3$ CMPL so, P_ + 1242 : 
5 1€ 0006C BGEGQU 8 : : 
50 02 Ad 3 006 MOVZWL 2(P), TYPE > 1251 ; 
57 89 € 000 MOV2WL (P)+. SIZE ; 1258 : 
59 : CO 0007 ADDL2. #2 : 125 ; 
01 00008001  &F 50 CF 00078 CASEL TYPE, #32769, #1 + 1258 ; 
0011 0006 00080 4$ . WORD 3$-48,- ; : 
1D 11 00084 BRB ab : 1263 ; 
04 57 D1 00086 5$ CMPL SIZE, #4 : 1268 : 
13 12 00089 BNEQ ; : 
08 AE 69 DO 00088 MOVL (P), FLAGS + 1270 : 
op 11 0008F BRB : 1258 : 
0c 7 D1 90091 6$: CMPL SIZE, #12 : 1276 ; 
08 1A 00094 BGTR : : 
0c 00 69 57 2C 00096 MOVCS SIZE, (P), #0, #12, 220(SJH) + 1281 : 
Oopc CA 00098 ; F 
59 57 CO O009E 7$ ADDL2 size. P : 1290 ; 
C6 11 OOOAT BRB $ + 1242 : 
10 AE 9F OOOA3 8$ PUSHAB SRB : 1297 ; 
000000006 _ EF 01 FB O00A6 CALLS #1, CREATE SRB ; : 
00000000" EF 9F OAD PUSHAB VALUE_BATCA_OUTPUT + 1298 : 
0B pp 00B PUSHL #11 ; : 
18 AE F 000B5 PUSHAB SRB ; 3 
000000006 EF : FB 000B8 CALLS #3, LOCATE_SRB_OUTPUT_ITEM : ; 
oC A 0 »D O08 MOVL RO, DJI ; 3 
5 0c AE D C3 MOVL DJI, DJIITM : 3 
1 do¢ BNEG 9 + 1303 : 
020E 31 000C9 BRW 335 : : 
83 00030004 8F 06 Occ 9$ MOVL #196612, (DJIITM)+ : 1309 : 
5 ; D OD MOVL  DJIITM, DJIFLG > 1311 3 
4 06 CLRL  (DJIITM)+ : 1312 : 
ra 40 8F 88 000D BISB2 ag (DJIFLG) > 1314 : 
04 AE OC AA 9E 000DC MOVAB 12(8JH), 4(SP) : 1319 ; 
03 04 8B 0 a E1 BBC #14, ad(SP), 10$ ; : 
6 10 88 O00E6 BISB2 #16, (DJIFLG) ; ; 
03 11 AA ; Fi E9 10$: BBC a WCSIH), 118 : 1320 ; 
05 04 BE B ef itd 11$ BBC aie. a4(SP), 12% > 1321 : 
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BATCH Batch process control 18-Sep-1984 23:53:25 VAX-11 Bliss-32 V4.0-742 
v04=000 ° VareeahORt $3:8883 Wn thle tea barr eecsearcu.a3203%* 
63 1C AG 1 28 B MOVC3 #28, 28(SQR), (DJIITM) 
DD C PUSHL SQR_N 
00000000G_ EF F C CALLS #1, RELEASE_RECORD 
3 0D C9 328: CLRL (DIT TAD + 
7E 53 0c AE § C SUBL3) DJI, DJIITM, =-(SP> 
14 Ag Ff D PUSHAB SRB 
00000000G EF 9 FB 0020 CALLS #2, COMPLETE_SRB_OUTPUT_ITEM 
B DD OO2DA 33$ PUSHL SJH_ 
00000000G_ EF 01 FB 00 4 CALLS #1,” REWRITE_RECORD 
01 ODD 4 E PUSHL #1 
14 AE 9F O002E5 PUSHAB SRB 
00000000G_ EF 0¢ FB 002E8 CALLS #2, SEND_SERVICE_RESPONSE_MESSAGE 
i aE 


; Routine Size: 754 bytes, Routine Base: CODE + 0000 
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14- Sep-1984 93:32:83 DISKSVMSMASTER: CJOBCTL.SRCIBATCH.B32;1 r (d 


GLOBAL ROUTINE BATCH _DELETION(SMQ_N,SJH_N): NOVALUE= 
'e¢ 
' 


i FUNCTIONAL DESCRIPTION: 
This routine handles the deletion of a batch process. 


INPUT PARAMETERS: 
SMQ_N - Record number of SMQ. 
SJH_N - Record number of SJH. 


IMPLICIT INPUTS: 
MBX 


BATCH 
v04-000 
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- Pointer to buffered mailbox message. 
OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


' Flag waaieot ta SMQ should be flushed 
! Pointer to SMQ 

' Pointer to SJH 

' Record number of tentative SJH 

' Record number of prececegser of SJH 

! Pointer to predecessor of SJH 


FLUSH_SMQ, 
SMQ : REF BBLOCK, 
SJH: REF BBLOCK, 


SOOCOSGOOSOSS COO OOOO OO OWW MMO c9cDND00 I~ 


WR =O OOO UNE WD 0 ODO UEWN 0 OD NOME WN $$ 0 OBNOAU EWN OCONOUS WW" OOO 


wn 
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REF BBLOCK; 


Read and update the queue header. 


SMQ = READ_RECORD(.SMQ_N 

SMQCSMQ$B_TURRENT_JOB rou T] = .SMQCSMQSB CURRENT JOB_COUNT] - 
QUEUE "REFERENCE COUNT™= QUEUE _REFERENCE COUNT - T; 

FLUSH_SMQ = NALSE: 


109 09 09 09 SI INI NI NSI NNNNIOPA AA AAOAOO OMI 


Search the current queue for the job record. 
SJH_ NP = 
SJH-NT = 
oHICe .SJH_ nt 
BEGIN ~ 
SJH = READ_RECORD(. he NT); 
IF .SJH H_NT-EQL .SJH 
THEN 


BEGIN 


Smarshasy cu CURRENT_LIST); 
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X=11 BLi -742 
14-Sep-1 DISKSVMSMASTER: CJOBCTL.SRCIBATCH.B32; 


22 | 
(4) 


| Unlink the job from the current queue. 
UPDATE _GETQUI_DATA(.SJH_N, .SJH); 
a €QC .SMQ_N 


BeGiN 
SMOCSMQS$L_CURRENT_LIST] = .SJHCSYMSL_LINKJ; 
SHE STMSL PNR S C U 


= | 

EF} EQL 0 THEN SMQCSMOSL_CURRENT_LIST_END] = 0; 
FLUSH_SMQ = TRUE; | 
END 
ELSE 
BEGIN | 

SJH_PCSYMSL_LINK] =  SJMCSYMSL LINK; 

IF [SJHCSYMSL_LINK) EQL 
THEN 
BEGIN 
SMOLSMOSL_CURRENT_LIST_END] = .SJH_NP; 
FLUSH_SMQ"= TRUE; 


END; 
REWRITE_RECORD(.SJH_NP); 
END; 


! If the SMQ is dirty and needs to be re-written before doing 

: COMPLETE_JOB, do so. Then re-read it for subsequent processing. 
iF .FLUSH_SMQ 

THEN 


FLUSH_RECORD(.SMQ_N); 
} Complete the job. 
COMPLETE_JOB(.SJH_N, .SJH, .SMQ, .MBX); | 


Find more work for the queue. 

FIND_PENDING JOBS(.SMQ_N, .SMQ); 

' (Note: probably need only to RELEASE here, not REWRITE.) 
ft CORD(.SMQ_N); 


Advance to next job. 
if .SJH_NP NEQ .SMQ_N THEN RELEASE_RECORD(.SJH_NP); 
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; Referenced LOCAL symbol 
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Lis 
SJH_P is probably not initialized 


JH7P = .SJH; 
SJHINT =" .SJHCSYMSL_LINK); 
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11 
6 DISKSVMSMASTER: (JOB 


0° 
RECORD, R10 
TE RECORD, RO 


#1, READ_RECORD 
SMa 


(SMQ) 

UE _REFERENCE_COUNT 
SH- SMQ 

SJH_NP 

SMQ)> SJH_NT 


“ 
1 
T 
N 
? 
E 
U 
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H_NT 
+ READ_RECORD 


SJH_NT, SJH_N 
8$ 

SJH 

SJH_N 

#2, UPDATE_GETQUI_DATA 
SJ R6 


DBVn WND"OWMDABD 
om! Se MNO” C NO 


(SJH), 72(SMQ) 


76(SMQ) 
#1, FLUSH_SMQ 
(SJH), (SJH_P) 


SJH_NP, 76(SMQ) 
ae FLUSH_SMQ 


#1, REWRITE_RECORD 
FLUSH_SMQ, 7$ 


R 
#1, FLUSH_RECORD 

MBX 

SMO 

SJH 

SJH_N 

#4,” COMPLETE_JOB 

smd 

a, F IND_PENDING_JOBS 
#1, REWRITE_RECORD 
SJH_NP, R6 

$ 


SJH_NP 
#1, "RELEASE _RECORD 
SJA_NT, SJHTNP 


ELETION, Save R2,R3,R4,R5,R6,R7,R8,- 


a ee ee ee 
Soa SOOOooon 
PO NMP SWS 

SF NRO WONonNrN 


= 
oa 
o 


Pee Se Se Se SE Se Se Se Se Se Be Se Se Se Se He Se Se Se Se Ge Se Se Se Se Ge Be Se Be Be Se Be Se Se Se Se Be Be Se Se Se Ge Fe Se Fe Se Se Se Se Be Se Se Fe Se 


SRCIJBATCH 


-32_ V4.0-742 


VAX-11 Bliss 
DISKSVMSMASTER: CJOBCTL 


5 A 
6 I 
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Be §3:88:8 
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Routine Base: 


CODE + O2F2 


188 bytes, 


E 
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PSECT SUMMARY 
Bytes 


C 5024 NOVEC, WRT, 
CODE 942 NOVEC,NOWRT, 


Library Statistics 


2 nee Symbols 
File Total Loaded 


~$255$DUA28: CSYSLIBILIB.L32;1 18619 


; Information: 1 


; Warnings: 
; Errors: 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, JNITIAL,OPTIMIZE)/LIS=LIS$:BATCH/OBJ=OBJ$:BATCH MSRC$:BATCH/UPDATE=(ENH$:BATCH) 


; Size: 942 code + 5024 data bytes 
S Elepsed Time:  02:87:1 


; Lines/CPU Min: 4634 
; Lexemes/CPU-Min: 40032 


; Memory Used: 420 pages 
; Compication Complete 


RD ,NOEXE,NOSHR, 


p=19Be 12:36:86 


LCL, REL, 
LCL, REL, 


Pages 
Mapped 


1000 


mn 
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